home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacPeople 2003 February 1
/
MACPEOPLE-2003-02-01.ISO.7z
/
MACPEOPLE-2003-02-01.ISO
/
ぶらりオンラインウェアの旅
/
定番ソフト
/
Jedit(OS9)
/
MacroCollectionJ.sea
/
MacroCollection-J
/
パラグラフ番号付加
/
/
ースリスト説明
next >
Wrap
Text File
|
2001-01-01
|
3KB
|
70 lines
パラグラフ番号付加マクロ
programmed by Satoshi Matsumoto <satoshi@matsumoto.co.jp>
選択領域にある各パラグラフの先頭にパラグラフ番号を付加します。
領域を選択していないときは、全パラグラフにパラグラフ番号を付加します。
パラグラフ番号の書式(桁数、色、文字サイズ、フォント)はこのスクリプトの先頭で指定できます。
<--cut-->
property numLen : 6 桁数
property padding : "0" 桁数に満たないときに埋め込むマーク
property numFace : plain スタイル
property numColor : {30000, 0, 0} 文字色、RGB値
property numSize : 9 文字サイズ
property numFont : "Osaka" 文字フォント
tell application "Jedit4"
Jeditのバージョンが4.0.4以上かどうかをチェック。そうでない時は中止。
if version < 404 then
preDialog
display dialog "Jedit4.0 Rev4.0.4 以降を使用してください" buttons {" 了解"}
postDialog
error number -128
end if
activate Jeditのウィンドウを全面へ
何にもウィンドウが開いていないときは、警告をだしてキャンセル
if (count document) < 1 then
preDialog
display dialog "行番号を付加する書類を先に開いてください。" buttons {" 了解"}
postDialog
error number -128 このマクロを中止する
end if
tell document 1
選択域の先頭腹グラフ番号と、終了パラグラフ番号をセット。
if length of selection < 1 then
なにも領域が選択されていないとき
set startPara to 1
set endPara to paragraph number of last character
else
領域が選択されているとき
set startPara to paragraph number of selection
set endPara to paragraph number of last character of selection
end if
付加する番号の値を初期値「1」にセットする
set theNum to 1
開始パラグラフ番号startParaから終了パラグラフ番号endParaまでループ
repeat with thePara from startPara to endPara
番号の値を文字列に変換し区切りマーク": "を付加
set theString to (theNum as text) & ": "
番号文字列が指定桁数numLenよりも短いときはパディングマークを挿入する
repeat while length of theString < numLen + 2
set theString to padding & theString
end repeat
番号文字列をパラグラフの先頭に挿入する。
insert theString at beginning of paragraph thePara
挿入した番号文字列のながさをtheLenにセット
set theLen to length of theString
挿入した番号文字列を選択する
select (characters 1 thru theLen) of paragraph thePara
選択領域(番号文字列部分)を指定の文字色へ
set fore color of selection to numColor
選択領域(番号文字列部分)を指定のフォントへ
set font of selection to numFont
選択領域(番号文字列部分)を指定の文字サイズへ
set fontSize of selection to numSize
選択領域(番号文字列部分)を指定のスタイルへ
set style of selection to numFace
付加する番号の値をインクレメント
set theNum to theNum + 1
end repeat
end tell
end tell